home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Tutorial Material / Basic Tutorial / mcfibo1 < prev    next >
Text File  |  1998-10-26  |  1KB  |  49 lines
  1. ;  Fibonacci Rock for sax, basssynth and percussion.
  2.  
  3. (def-length
  4.   perc (gen-fibonacci 5 '(1/4 1/8)'(1/16 1/16 1/8))
  5.   bass (gen-fibonacci 5 '(1/8 1/8 -1/8) '(-1/16 1/16 -1/16 1/16))
  6.   sax (gen-fibonacci 5 '(1/16 1/16 1/16 1/16 -1/16 1/16) '(-1/8 1/16 1/16))
  7. )
  8.  
  9. (def-symbol
  10.   perc (gen-fibonacci 5 '(q r)'(u s t)) ; (q r) = bongos (u s t) = congas
  11.   bass (gen-fibonacci-trans 5 '(a h =) '(= e = -b))
  12.   sax (gen-fibonacci-trans 5 '(a d c e = f) '(= g b))
  13. )
  14.  
  15. (def-velocity
  16.   perc (gen-fibonacci 5 '(90 70) '(85 70 75))
  17.   bass (gen-fibonacci 5 '(75 85 0) '(0 90 0 70))
  18.   sax (gen-fibonacci 5 '(50 54 57 78 0 80) '(0 92 95))
  19. )
  20.  
  21.  
  22. (def-tonality
  23.   sax (activate-tonality (funky1 c 5))
  24.   bass (activate-tonality (blues1 c 2))
  25.   perc mt-32
  26. )
  27.  
  28. (def-zone
  29.    perc (append (gen-fibonacci 3 '(-1/4 1/8) '(-1/16 1/16 -1/8))
  30.                 (gen-fibonacci 5 '(1/4 1/8) '(-1/16 -1/16 -1/8))
  31.                 (gen-fibonacci 8 '(1/4 1/8) '(1/16 1/16 -1/8)))
  32.  
  33.    bass (append (gen-fibonacci 3 '(1/4 -1/8) '(-1/16 1/16 -1/8))
  34.                 (gen-fibonacci 5 '(1/4 -1/8) '(1/16 1/16 1/8))
  35.                 (gen-fibonacci 8 '(1/4 -1/8) '(1/16 -1/16 1/8)))
  36.  
  37.    sax (append (gen-fibonacci 3 '(-1/4 -1/8) '(1/16 1/16 -1/8))
  38.                (gen-fibonacci 5 '(1/4 -1/8) '(1/16 1/16 -1/8))
  39.                (gen-fibonacci 8 '(1/4 1/8) '(-1/16 -1/16 1/8)))
  40. )
  41.  
  42. (compile-instrument-p "ccl;output:" "rocktrio"
  43.   perc
  44.   bass
  45.   sax
  46. )
  47.  
  48. ; set tempo 1/4 = 110-120
  49.